home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / The Hacks! / The Crash Manager / "source" / globals.p < prev    next >
Encoding:
Text File  |  1998-06-20  |  1.4 KB  |  105 lines  |  [TEXT/CWIE]
  1. unit globals;
  2.  
  3. interface
  4.  
  5. uses
  6.     Menus,
  7.     Events,
  8.     QuickDraw,
  9.     Controls;
  10.  
  11. const
  12.     FATAL_ALERT_ID=2000;
  13.     FATAL_ALERT_TEXT_ID=2000;
  14.     MENU_BAR_ID=1000;
  15.     ABOUT_BOX_ID=1000;
  16.     
  17.     ABOUT_TITLE_DEEP_ID=1010;
  18.     ABOUT_TITLE_BW_ID=1011;
  19.     COPYR_DEEP_ID=1021;
  20.     COPYR_BW_ID=1021;
  21.     ABOUT_ICON_DEEP_ID=1000;
  22.     ABOUT_ICON_MASK_ID=1001;
  23.     ABOUT_ICON_BW_ID=1002;
  24.     
  25.     NEED_APPEARANCE=1;
  26.     
  27.     APPLE_MENU=1000;
  28.     FILE_MENU=1001;
  29.     EDIT_MENU=1002;
  30.     
  31.     EVENT_DELAY=15;
  32.     
  33.     APPLE_ABOUT=1;
  34.     FILE_CLOSE=1;
  35.     FILE_QUIT=3;
  36.     EDIT_UNDO=1;
  37.     EDIT_CUT=3;
  38.     EDIT_COPY=4;
  39.     EDIT_PASTE=5;
  40.     EDIT_CLEAR=6;
  41.     
  42.     OK_BUTTON=1;
  43.     ABOUT_ICON_UI=2;
  44.     ABOUT_TITLE_UI=3;
  45.     COPYR_UI=4;
  46.     
  47.     WINDOW_HEIGHT=264;
  48.     WINDOW_WIDTH=384;
  49.     LEFT_PANE_WIDTH=77;
  50.     
  51.     BUTTON_TOP=14;
  52.     BUTTON_LEFT=11;
  53.     BUTTON_HEIGHT=40;
  54.     BUTTON_WIDTH=52;
  55.     BUTTON_SPACE=30;
  56.     
  57.     PANE_BOMB=1;
  58.     PANE_CLUSTER=2;
  59.     
  60. type
  61.     PrefsType=record
  62.         style:integer;
  63.         frequency:integer;
  64.     end;
  65.             
  66. var
  67.     gQuitNow:boolean;
  68.     gInForeground:boolean;
  69.     gPaneState:integer;
  70.     
  71.     gAppleMenuH:MenuHandle;
  72.     gFileMenuH:MenuHandle;
  73.     gEditMenuH:MenuHandle;
  74.     
  75.     gEr:EventRecord;
  76.     
  77.     gMainWindow:WindowPtr;
  78.     
  79.     gBombButton:ControlHandle;
  80.     gClusterButton:ControlHandle;
  81.     gTypePopUp:ControlHandle;
  82.     gPreviewButton:ControlHandle;
  83.     gFreqPopUp:ControlHandle;
  84.     
  85.     gThePrefs:PrefsType;
  86.     
  87.     
  88. procedure InitGlobals;
  89.  
  90. implementation
  91.  
  92. procedure InitGlobals;
  93. begin
  94.     gQuitNow:=false;
  95.     gInForeground:=true;
  96.     gPaneState:=PANE_BOMB;
  97.     
  98.     with gThePrefs do begin
  99.         style:=1;
  100.         frequency:=1;
  101.     end;
  102.     
  103. end;
  104.  
  105. end.